# data checks
# battery
BattV <- ggplot(all_hr) +
geom_line(aes(x = TIMESTAMP, y = BattV_Min, color = site))#+
facet_wrap(~site, ncol = 1)
## <ggproto object: Class FacetWrap, Facet, gg>
## compute_layout: function
## draw_back: function
## draw_front: function
## draw_labels: function
## draw_panels: function
## finish_data: function
## init_scales: function
## map_data: function
## params: list
## setup_data: function
## setup_params: function
## shrink: TRUE
## train_scales: function
## vars: function
## super: <ggproto object: Class FacetWrap, Facet, gg>
ggplotly(BattV)
#air temp
AirTemp <- ggplot(all_hr) +
geom_line(aes(x = TIMESTAMP, y = AirTC_Avg, color = site))#+
facet_wrap(~site, ncol = 1)
## <ggproto object: Class FacetWrap, Facet, gg>
## compute_layout: function
## draw_back: function
## draw_front: function
## draw_labels: function
## draw_panels: function
## finish_data: function
## init_scales: function
## map_data: function
## params: list
## setup_data: function
## setup_params: function
## shrink: TRUE
## train_scales: function
## vars: function
## super: <ggproto object: Class FacetWrap, Facet, gg>
ggplotly(AirTemp)
#RH
RH <- ggplot(all_hr) +
geom_line(aes(x = TIMESTAMP, y = RH, color = site))#+
facet_wrap(~site, ncol = 1)
## <ggproto object: Class FacetWrap, Facet, gg>
## compute_layout: function
## draw_back: function
## draw_front: function
## draw_labels: function
## draw_panels: function
## finish_data: function
## init_scales: function
## map_data: function
## params: list
## setup_data: function
## setup_params: function
## shrink: TRUE
## train_scales: function
## vars: function
## super: <ggproto object: Class FacetWrap, Facet, gg>
ggplotly(RH)
#Snow Depth
SnowDepth <- ggplot(all_hr) +
geom_line(aes(x = TIMESTAMP, y = DBTCDT_Avg, color = site))#+
facet_wrap(~site, ncol = 1)
## <ggproto object: Class FacetWrap, Facet, gg>
## compute_layout: function
## draw_back: function
## draw_front: function
## draw_labels: function
## draw_panels: function
## finish_data: function
## init_scales: function
## map_data: function
## params: list
## setup_data: function
## setup_params: function
## shrink: TRUE
## train_scales: function
## vars: function
## super: <ggproto object: Class FacetWrap, Facet, gg>
ggplotly(SnowDepth)
#wind speed
WindSpd <- ggplot(all_hr) +
geom_line(aes(x = TIMESTAMP, y = WS_ms_Avg, color = site))#+
facet_wrap(~site, ncol = 1)
## <ggproto object: Class FacetWrap, Facet, gg>
## compute_layout: function
## draw_back: function
## draw_front: function
## draw_labels: function
## draw_panels: function
## finish_data: function
## init_scales: function
## map_data: function
## params: list
## setup_data: function
## setup_params: function
## shrink: TRUE
## train_scales: function
## vars: function
## super: <ggproto object: Class FacetWrap, Facet, gg>
ggplotly(WindSpd)
#wind speed
WindDir <- ggplot(all_hr) +
geom_line(aes(x = TIMESTAMP, y = WindDir, color = site))+
scale_y_continuous(expand = c(0,0), limits = c(0,360), breaks = seq(0,360,90),
guide = guide_prism_minor()) #+
facet_wrap(~site, ncol = 1)
## <ggproto object: Class FacetWrap, Facet, gg>
## compute_layout: function
## draw_back: function
## draw_front: function
## draw_labels: function
## draw_panels: function
## finish_data: function
## init_scales: function
## map_data: function
## params: list
## setup_data: function
## setup_params: function
## shrink: TRUE
## train_scales: function
## vars: function
## super: <ggproto object: Class FacetWrap, Facet, gg>
ggplotly(WindDir)